program arquivo_binario;

type aluno = record
	begin
		sexo: char;
		idade: integer;
	end;
var
	arq1 : file of aluno;
	temp : aluno;
Begin
	assign(arq1, 'alunos.dat');
	reset(arq1);
	while not eof(arq1) do
		read(arq1, temp);
End.